home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
sac.zip
/
FOXPRO.ZIP
/
SACPR1.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-08-27
|
18KB
|
371 lines
[\<1] - 80 Column Deep Sky Report
[\<2] - 132 Column Deep Sky Report
[\<3] - Word for Windows (Deep Sky Data File)
[\<4] - 80 Column Deep Sky Log Report
[\<Q] - Quit to report menu
DEACTIVATE POPUP
SACPR1
: :
Print
cPRNf
WINDOW
NFORM_SCR
U2000
TIRION
DDATE
DDATE_1
DDATE_2
CTIME
CNOTES
NINDEX
NORDER
NPR_SS
YESNO
CPR_GIF
CPR_PRN
OPTION
CFILE
CPR_WFW
PRINT
: :
99:99:99
Ascending
Descending8
SET ORDER TO nINDEX &cORDER
INDEX ON UPPER(CLUBS)+UPPER(OBJECT)
FOR CLUBS <> SPACE(10)
.AND.
mOBJECT$UPPER(OBJECT)
.AND.
mOTHER$UPPER(OTHER)
.AND.
mTYPE=TYPE
.AND.
mCONST=CONST
.AND.
RA-nFAC<=mRA.AND.mRA<=RA+nFAC
.AND.
DEC-nFAC<=mDEC.AND.mDEC<=DEC+nFAC
.AND.
MAG-nFAC<=mMAG.AND.mMAG<=MAG+nFAC
.AND.
BRSTR-nFAC<=mBRSTR.AND.mBRSTR<=BRSTR+nFAC
.AND.
mDESC$UPPER(DESC)
.AND.
mSIZE$UPPER(SIZE)
.AND.
mCLASS$UPPER(CLASS)
.AND.
mSOURCE$UPPER(SOURCE)
.AND.
NSTS-nFAC<=mNSTS.AND.mNSTS<=NSTS+nFAC
.AND.
mCLUBS$UPPER(CLUBS)
.AND.
mNOTES$UPPER(NOTES)
SET FILTER TO &cD
.AND.
dDATE_1<=LOG_DATE
.AND.
LOG_DATE<=dDATE_2
SET FILTER TO &cD
Press [ESC] to return to main menu...
cSAC_INDEXf
CTIME
DDATE
M_SCR
CORDER
NORDER
CSAC_INDEXNINDEX
FNFILE
DEXPLSWAIT
FNTALK
_INDEXOBJECT
MOBJECT
OTHER
MOTHER
MTYPE
CONST
MCONST
BRSTR
MBRSTR
MDESC
MSIZE
CLASS
MCLASS
SOURCE
MSOURCE
MNSTS
MU2000
U2000
MTIRION
TIRION
CLUBS
MCLUBS
CNOTES
MNOTES
SACLOG
DDATE_1
DDATE_2
PRINT1
PRINT2
PRINT3
PRINT4
CDATAPATH
NFORM_NDX
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column SAC Deep Sky Report
Date is
Deep Sky Filter is
?? &cPR_BOFF
Object:
Other Names:
Type of Object:
M->TYPE
Constellation :
M->CONST
L.S.T.:
Right Ascension : F
99.9999c
Azimuth (DDD.MMSS):F
999.9999c
Date:
Declination :F
999.9999c
Altitude (DDD.MMSS):F
999.9999c
Time:
Magnitude : F
Magnitude of Brightest Star:
Description:
Size :
Class:
Source :
# of Stars : F
U 2000 :
Clubs:
Tirion 2000:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
NRPT_ROW
NRPT_MAX
INDEXDDATE
DEXLST
CTIME
INDEXDMS
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
CSAC_NAME
OBJECT
OTHER
FLD_DES
CONST
BRSTR
CLASS
SOURCE
CLUBS
T_ROW
NOTES
CGIFPATH
CPR_GIF
PRINT_GIF
THERM
?? &cPR_CON
bESC =.T.
?? &cPR_BON
Page F
132 Column SAC Deep Sky Report
Date is
Deep Sky Filter is
RA Tirion Size # Stars Source
Object Other Type Const Dec. Mag. U2000 Class Magnitude Clubs
----------------- ----------------- ----- --- ------- ---- ---------------- ----------- ----- ----------
?? &cPR_BOFF
F
Description: F
Notes:
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
NRPT_ROW
NRPT_MAX
INDEXDDATE
DEXLST
CTIME
INDEXDMS
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
CSAC_NAME
OBJECT
OTHER
CONST
SOURCE
CLASS
BRSTR
CLUBS
T_ROW
NOTES
THERM
OBJECT
OTHER
CONST
U2000
TIRION
CLASS
BRSTR
NOTES
SOURCE
CLUBS
bESC =.T.
Number of Printed Records = F
CFILE
NCOUNT
DDATE
CTIME
NDEXCLST
DEXNRA
INDEXNAZ
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
OBJECT
OTHER
CONST
_NAME
CLASS
BRSTR
NOTES
NNOTES
SOURCE
CLUBS
THERM
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column SAC Deep Sky Log
Date is
Deep Sky Filter is
?? &cPR_BOFF
Object:
Other Names:
Type of Object:
M->TYPE
Constellation :
M->CONST
L.S.T.:
Right Ascension : F
99.9999c
Azimuth (DDD.MMSS):F
999.9999c
Date:
Declination :F
999.9999c
Altitude (DDD.MMSS):F
999.9999c
Time:
Magnitude : F
Magnitude of Brightest Star:
Description:
Size :
Class:
Source :
# of Stars : F
U 2000 :
Clubs:
Tirion 2000:
Log Date: F
Log Time:
Log Date: F
Log Time:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
NRPT_ROW
NRPT_MAX
NDEXDDATE
DEXLST
CTIME
INDEXDMS
COBJECT
OBJECT
COTHER
OTHER
AL_AZ
U2000
FNU2000
TIRION
FNTIRION
MU2000
MTIRION
SACLOG
CSAC_NAME
FLD_DES
CONST
BRSTR
CLASS
SOURCE
CLUBS
LOG_DATE
LOG_TIME
T_ROW
NOTES
CGIFPATH
CPR_GIF
PRINT_GIF
THERM
PRINT
PRINT1
PRINT2
PRINT3
PRINT4
D:\SKY\SAC\
SACPR1.FXP
D:\SKY\SAC\SACPR1.PRG